home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00039_Script_#startmovie < prev    next >
Text File  |  1997-07-29  |  7KB  |  245 lines
  1. global load_init, menu_on, menusub_on,  roll_scripts, current_pm, nav_history, sub_open, cpos, the_leaf, pmroll_list, the_erarolls, improlloverlist
  2.  
  3. on stopmovie
  4.   --  unlinkqts -- debug code remove in final version
  5.   if the machinetype  = 256 then closeeventq -- close the library
  6.   --  put "movie stopped"
  7.   if the machinetype < 256 then palfix_stop
  8.   global imp_it, iss_vid
  9.   set imp_it = 0
  10.   set iss_vid = 0
  11. end
  12.  
  13. on close_issue_text
  14.   global issue_text
  15.   see_sprite([30,31,32,37,38,39,40,41],false)
  16.   set_puppets([39],false)
  17.   set issue_text = FALSE
  18. end
  19.  
  20. on makepath
  21.   set the searchpath = []
  22.   put the moviepath into mp
  23.   set s = mp&"snd"
  24.   set m = mp&"moovs"
  25.   --  set gr = mp&"gfx"
  26.   
  27.   -- eras path
  28.   set er = mp&"ERAS"
  29.   if the machinetype < 256 then set sep = ":"
  30.   if the machinetype = 256 then set sep = "\"
  31.   set er1 = er&sep&"la"
  32.   set er2 = er&sep&"vi"
  33.   set er3 = er&sep&"gp"
  34.   set er4 = er&sep&"ty"
  35.   set er5 = er&sep&"ky"
  36.   set er6 = er&sep&"td"
  37.   set er7 = er&sep&"ad "
  38.   
  39.   set  the searchPath = [ the moviepath,s,m,er,er1,er2,er3,er4,er5,er6,er7]
  40.   
  41. end
  42.  
  43. on dopm the_pm
  44.   global dopm
  45.   if voidp(the_pm) then set the_pm = 0
  46.   if dopm then
  47.     addtohistory(the frame) 
  48.     cursor 4
  49.     
  50.     -- KF PRS 11/26/96
  51.     set temp = the frameLabel
  52.     delete the last char of temp
  53.     delete the last char of temp
  54.     delete the last char of temp
  55.     set old_Curr_PM = integer(temp)
  56.     --
  57.     
  58.     set current_pm = integer(the_pm)
  59.     set tf = "pm,"¤t_pm
  60.     set dopm = false
  61.     if current_pm < 1 then
  62.       if the colordepth > 8 then puppetpalette "pmtop"
  63.       go to marker("pmtop")
  64.       if the colordepth > 8 then puppetpalette 0
  65.       nothing
  66.     else
  67.       if the moviename <> "profile.dir" then
  68.         
  69.         if the colordepth > 8 then puppettransition 51,02,08 
  70.         go to "fadeout"
  71.         --        sound playfile 1, "00prf.aif"
  72.         go to movie "profile.dir"
  73.       else
  74.         if the colordepth > 8 then 
  75.           set pmpal = "pal,"&string(current_pm)
  76.           --          puppetpalette pmpal
  77.           --          tell the stage to puppetpalette pmpal
  78.           --          tell the stage to puppettransition 02, 04, 08
  79.         end if
  80.         soundcheck(current_pm)
  81.         
  82.         -- KF PRS 11/25/96
  83.         if the colordepth > 8 then
  84.           if the framelabel contains "pmw" then
  85.             if current_pm > old_Curr_PM then 
  86.               puppettransition 02, 4, 32
  87.             end if
  88.             if current_pm < old_Curr_PM then
  89.               puppettransition 01, 4, 32
  90.             end if
  91.           else
  92.             puppettransition 51,02,16
  93.           end if
  94.         else
  95.           
  96.         end if
  97.         -------
  98.         
  99.         go to marker(string(tf))
  100.         set_cursors(prof_rolls)
  101.       end if
  102.       
  103.     end if
  104.   end if
  105.   starttimer
  106.   cursor 0
  107. end
  108.  
  109. on clearPMglobals
  110.   
  111.   global iss_vid, sub_open, imp_it
  112.   set iss_vid = 0
  113.   set imp_it = 0
  114.   set sub_open = 0
  115.   
  116. end
  117.  
  118. on soundfix
  119.   global soundL
  120.   if voidp(soundL) then 
  121.     set soundL to the soundlevel
  122.   else
  123.     set the soundlevel to soundL
  124.   end if
  125. end
  126. on startmovie
  127.   starttimer 
  128.   -- little sound fixer (take out for final release)
  129.   soundfix
  130.   
  131.   tell window "textpop.dir" to makelinelist
  132.   forget window "textpop.dir"
  133.   
  134.   set the itemdelimiter = ","
  135.   if the machinetype = 256 then openeventq -- xobject to trap user events
  136.   
  137.   global gsep,mp
  138.   if the machinetype < 256 then 
  139.     palfix_init
  140.     if voidp(gsep) then 
  141.       set gsep to ":"
  142.       set mp to the moviepath
  143.     end if
  144.   else
  145.     if voidp(gsep) then 
  146.       set gsep to "/"
  147.       set mp to the moviepath
  148.     end if
  149.   end if
  150.   
  151.   --  global gsep
  152.   --  if the machinetype = 256 then set gsep to "\"
  153.   --  else set gsep to ":"
  154.   --  alert "gsep :"& gsep
  155.   see_sprite([44,45,46,47],false)
  156.   
  157.   set_puppets([],"off")
  158.   
  159.   clearPMglobals
  160.   
  161.   if voidp(load_init) or load_init = 0 then
  162.     preloadmenu
  163.     
  164.     -- move this into start.dir in final version
  165.     --    makepath
  166.     -- end of searchpath stuff
  167.     
  168.     set menu_on = FALSE
  169.     set menusub_on = FALSE
  170.     set sub_open = 0
  171.     
  172.     set current_pm = current_pm + integer(0) -- equals don't reset if set
  173.     set nav_history = []
  174.     
  175.     global the_rolls,prof_rolls,profover_rolls,profbio_rolls,profiss_rolls, profimps_rolls, biosub_rolls
  176.     
  177.     set prof_rolls = [5,6,7,8,9,10,11,12,13,14,15,16]
  178.     
  179.     set biosub_rolls = [4,5,9,11,12,17,35,36,37,40,41,43,48]
  180.     set profover_rolls = [4,7,9,11,12,18,19,48]
  181.     set profbio_rolls = [4,5,9,10,11,12,13,17,18,19,40,48]
  182.     set profimps_rolls = [4,9,11,12,16,17,21,22,24,25,26,27,28,48]
  183.     set profiss_rolls = [4,9,11,12,17,18,19,24,34,35,48]
  184.     set impRolloverList = ["doimp(1)": rect(66, 51, 198, 147), "doimp(2)": rect(201, 51, 333, 147), "doimp(3)": rect(341, 51, 473, 147), "doimp(4)": rect(476, 51, 608, 147), "doimp(5)": rect(66, 150, 198, 246), "doimp(6)": rect(201, 150, 333, 246), "doimp(7)": rect(340, 150, 472, 246), "doimp(8)": rect(476, 150, 608, 246), "doimp(9)": rect(66, 249, 198, 345), "doimp(10)": rect(201, 249, 333, 345), "doimp(11)": rect(340, 250, 472, 346), "doimp(12)": rect(476, 249, 608, 345), "doimp(13)": rect(65, 351, 197, 447), "doimp(14)": rect(202, 350, 334, 446), "doimp(15)": rect(339, 350, 471, 446), "doimp(16)": rect(476, 350, 608, 446)]
  185.     
  186.     
  187.     set load_init = TRUE
  188.   end if
  189.   
  190.   set_cursors(prof_rolls)
  191.   
  192.   see_sprite([44,45,46,47],false)
  193.   
  194.   if current_pm <> 0 then dopm(current_pm)
  195.   --  hidecontroller
  196.   
  197.   --  put "startmovie "&the timer
  198.   sound fadeout 1, 3*60
  199. end
  200.  
  201. on handcurse tc
  202.   if not voidp(tc) then set the cursor of sprite tc = ([the membernum of member "hand", the membernum of member "hand mask"])
  203. end
  204.  
  205. on cursoroff tc
  206.   if not voidp(tc) then set the cursor of sprite tc = 0
  207. end
  208.  
  209. on waitcursor tc
  210.   if not voidp(tc) then set the cursor of sprite tc = 4  
  211.   else cursor 4
  212. end
  213.  
  214.  
  215. on preloadmenu
  216.   preLoadMember member "newitems.pct", member "last era pic"
  217. end
  218.  
  219. on dirfaq
  220.   open window "faq.dir"  
  221. end
  222.  
  223. on create_textpop
  224.   movewindow window "textpop.dir", -1000, -1000,false
  225.   set the visible of window "textpop.dir" = false
  226.   
  227. end
  228.  
  229. on hide_textpop
  230.   set sub_open = 0
  231.   if string(the windowlist) contains "textp" then
  232.     movewindow window "textpop.dir" , -1000, -1000, false
  233.     set the visible of window "textpop.dir" = false
  234.     
  235.     tell the stage to set the cursor of sprite 18 to [member "hand", member "hand mask"]
  236.     tell the stage to set the cursor of sprite 19 to [member "hand", member "hand mask"]
  237.     global glossontop
  238.     set glossontop to false
  239.   end if
  240. end
  241.  
  242.  
  243.  
  244.  
  245.